home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 August / Ahoy_Magazine_85-08_1985_Double_L.d64 / gators n snakes (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  6KB  |  186 lines
  1. 5 px=53281
  2. 10 l(0)=1350:l(1)=1510:l(2)=1670:l(3)=1830:col=54272:loc=l(0):k=0:lv=1:ag=0
  3. 20 sid=54272:sh=sid+1:sl=sh+3:w1=33:w2=32:print"[147][158]":pokepx,11:pokepx-1,0
  4. 25 fori=sidtosid+24:pokei,0:next:poke54296,15:poke54277,0:pokesh+5,240
  5. 30 poke56,39:c=peek(53279):poke50002,0
  6. 40 sn$="      g a t o r s  n  s n a k e s"
  7. 45 fori=1to34:printright$(sn$,i);"[145]":fort=1to60:next:pokesl,129:pokesh,7:pokesid,255
  8. 47 next:pokesl,128
  9. 50 printtab(12)"by jim sanders"
  10. 60 printtab(14)"one moment...":gosub450:rem read sprites/charset/ml
  11. 70 print"[147]":k=0:sc=0:c=peek(53279):poke50002,0:poke49203,11-lv:ht=0
  12. 80 poke53265,peek(53265)and239:pokepx,11
  13. 90 print" score ";tab(37)"[149]  "
  14. 100 print"       ";tab(37)"[149]  "
  15. 110 print"   hi  ";tab(37)"[149]  "
  16. 120 print" score ";tab(37)"[149]  "
  17. 130 print"       ";tab(37)"[149]  "
  18. 140 print"g      ";tab(37)"[146][158][214][158] "
  19. 150 print"a      ";tab(37)"[149]  "
  20. 160 print"t      ";tab(37)"[149]  "
  21. 170 print"0      ";tab(37)"[149]  "
  22. 180 print"r      ";tab(37)"[149]  "
  23. 190 print"s      ";tab(37)"[146][158][214][158] "
  24. 200 print"       ";tab(37)"[149]  "
  25. 210 print"n      ";tab(37)"[149]  "
  26. 220 print"       ";tab(37)"[149]  "
  27. 230 print"s      ";tab(37)"[149]  "
  28. 240 print"n      ";tab(37)"[146][158][214][158] "
  29. 250 print"a      ";tab(37)"[149]  "
  30. 260 print"k      ";tab(37)"[149]  "
  31. 270 print"e      ";tab(37)"[149]  "
  32. 280 print"s      ";tab(37)"[149]  "
  33. 290 print"       ";tab(37)"[146][158][214][158] "
  34. 300 print"lev."lv;tab(37)"[149]  "
  35. 310 print"       ";tab(37)"[149]  "
  36. 320 fori=0to4
  37. 330 printtab(18)"[216][216][216][146]"
  38. 340 next:print
  39. 350 fori=0to8
  40. 360 printtab(18)"[216][216][216][146]"
  41. 370 next:print
  42. 380 fori=0to6
  43. 390 printtab(18)"[216][216][216][146]"
  44. 400 next:poke1910,160:pokecol+1910,1:pokesp+21,255
  45. 410 ifag=1andud=1thenprint"";tab(1)"";hs
  46. 420 pokel(0),155:pokel(1),155:pokel(2),155:pokel(3),155
  47. 430 pokel(0)+col,7:pokel(1)+col,7:pokel(2)+col,7:pokel(3)+col,7
  48. 440 poke53265,peek(53265)or16:goto1150
  49. 450 sp=53248:poke53281,11:poke53280,0
  50. 460 pokesp+21,0:pokesp+23,0:pokesp+16,192
  51. 470 c1=sp+39:pokec1,1:pokec1+1,1:pokec1+2,7:pokec1+3,7:pokec1+4,1:pokec1+5,1
  52. 480 pokec1+6,5:pokec1+7,15
  53. 490 fori=1to15step2:pokesp+i,100:next
  54. 500 pokesp+0,75:pokesp+2,140:pokesp+4,105:pokesp+6,195:pokesp+8,225:pokesp+10,255
  55. 510 pokesp+12,15:pokesp+14,45
  56. 520 m1=12288:m2=12352:m3=12416:m4=12480:m5=12544:m6=12608:m7=12672:m8=12736
  57. 530 fori=0to63:reada:pokem1+i,a:next
  58. 540 fori=0to63:reada:pokem2+i,a:next
  59. 550 fori=0to63:reada:pokem3+i,a:next
  60. 560 fori=0to63:reada:pokem4+i,a:next
  61. 570 restore
  62. 580 fori=0to63:reada:pokem5+i,a:next
  63. 590 fori=0to63:reada:pokem6+i,a:next
  64. 600 fori=0to63:reada:pokem7+i,a:next
  65. 610 fori=0to63:reada:pokem8+i,a:next
  66. 620 fori=0to7:poke2040+i,192+i:next
  67. 630 fori=3to15step2:poke50000+i,5:next:poke50001,4
  68. 640 data0,1,0,0,2,0,0,4
  69. 650 data0,0,12,0,0,28,0,0
  70. 660 data28,0,0,14,0,0,7,0
  71. 670 data0,3,128,0,1,192,0,1
  72. 680 data192,0,3,128,0,7,0,0
  73. 690 data14,0,0,28,0,0,30,0
  74. 700 data0,15,0,0,13,128,0,15
  75. 710 data128,0,3,128,0,0,128,0
  76. 720 data0,64,0,0,224,0,1,240
  77. 730 data0,1,152,0,0,248,0,0
  78. 740 data120,0,0,48,0,0,112,0
  79. 750 data0,224,0,1,192,0,3,128
  80. 760 data0,3,128,0,1,192,0,0
  81. 770 data224,0,0,112,0,0,56,0
  82. 780 data0,56,0,0,48,0,0,32
  83. 790 data0,0,64,0,0,128,0,0
  84. 800 data0,1,0,0,6,0,0,12
  85. 810 data0,0,24,0,0,24,0,0
  86. 820 data12,0,0,14,0,0,14,24
  87. 830 data1,143,32,0,95,160,0,95
  88. 840 data224,0,127,128,0,31,128,0
  89. 850 data31,128,0,127,128,0,95,224
  90. 860 data0,223,160,0,223,176,0,22
  91. 870 data176,0,15,0,0,6,0,0
  92. 880 data0,96,0,0,240,0,13,104
  93. 890 data0,13,251,0,5,251,0,7
  94. 900 data250,0,1,254,0,1,248,0
  95. 910 data1,248,0,1,254,0,7,250
  96. 920 data0,5,154,128,20,241,128,24
  97. 930 data112,0,0,112,0,0,48,0
  98. 940 data0,24,0,0,24,0,0,48
  99. 950 data0,0,96,0,0,128,0,0
  100. 960 data120,165,1,41,251,133,1,169,0,133,251,133,253,169,40,133,252,169,208,133
  101. 970 data254,162,8,160,0,177,253,145,251,136,208,249,230,252,230,254,202,208,240
  102. 980 data165,1,9,4,133,1,88,96
  103. 990 data2,4,200,59,59,200,4,2,64,32,215,216,216,23,32,64
  104. 1000 data153,90,36,24,36,102,102,102,102,102,102,36,24,36,90,153
  105. 1010 data129,60,66,90,90,66,60,129
  106. 1020 goto1030
  107. 1030 fori=0to46:reada:poke828+i,a:ck=ck+a:next
  108. 1040 ifck<>6871thenprint"error in lines 960-980":end
  109. 1050 sys828
  110. 1060 fori=11480to11519:reada:pokei,a:next
  111. 1070 poke53272,(peek(53272)and240)or10
  112. 1080 forl=sidtosid+24:pokel,0:next
  113. 1090 pokesid+5,88:pokesid+6,195:pokesid+24,15
  114. 1100 fori=49152to49152+94:readml:pokei,ml:ck=ck+ml:next
  115. 1110 ifck<>20502thenprint"error in lines 1710-1780":end
  116. 1120 return
  117. 1130 sys49152:pokesh,25:pokesid,77
  118. 1140 pokesid+4,w1:fort=1to10:next:pokesid+4,w2:sys49152:w1=33:w2=32:return
  119. 1150 v=peek(56321)and15
  120. 1160 sys49152
  121. 1170 ifpeek(50002)<>0thengosub1440
  122. 1180 ifv=14then1270
  123. 1190 sys49152
  124. 1200 ifv=13then1310
  125. 1210 sys49152
  126. 1220 ifv=7then1350
  127. 1230 sys49152
  128. 1240 ifv=11then1400
  129. 1250 sys49152
  130. 1260 goto1150
  131. 1270 up=peek(loc-40)
  132. 1280 ifup<>32then1150
  133. 1290 pokeloc-40,157:pokecol+loc-40,7:pokeloc,32:gosub1130:loc=loc-40:sys49152
  134. 1300 sys49152:goto1150
  135. 1310 dwn=peek(loc+40)
  136. 1320 ifdwn<>32then1150
  137. 1330 pokeloc+40,158:pokecol+loc+40,7:pokeloc,32:gosub1130:loc=loc+40:sys49152
  138. 1340 sys49152:goto1150
  139. 1350 rt=peek(loc+1)
  140. 1360 ifrt=86thenht=ht+1:h=1:goto1380
  141. 1370 ifrt<>32then1150
  142. 1380 pokeloc+1,155:pokecol+loc+1,7:pokeloc,32:gosub1130:loc=loc+1:sys49152
  143. 1390 sys49152:sc=sc+lv:gosub1480:goto1150
  144. 1400 lt=peek(loc-1)
  145. 1410 iflt<>32then1150
  146. 1420 pokeloc-1,156:pokecol+loc-1,7:pokeloc,32:gosub1130:loc=loc-1:sys49152
  147. 1430 sys49152:sys49152:goto1150
  148. 1440 ifk=3thenpokeloc,159:w1=129:w2=128:gosub1130:pokeloc,32:k=0:loc=l(k):goto1620
  149. 1450 k=k+1:x=ht+k:pokeloc,159:w1=129:w2=128:gosub1130:pokeloc,32:loc=l(k):c=peek(53279)
  150. 1460 ifk=>4thenk=0:loc=l(k):goto1620
  151. 1470 return
  152. 1480 sys49152:print"";tab(1)"";sc:sys49152
  153. 1490 ifht=4thenpoke1301,86:poke1501,86:poke1701,86:poke1901,86:goto1510
  154. 1500 goto1580
  155. 1510 poke1350,155:poke1510,155:poke1670,155:poke1830,155:loc=1350:k=0:ht=0:lv=lv+1
  156. 1520 iflv>10then1790
  157. 1530 printtab(4)"";lv:iflv=2thenpokesp+23,1
  158. 1540 iflv=4thenpokesp+23,5
  159. 1550 iflv=6thenpokesp+23,19
  160. 1560 iflv=8thenpokesp+23,51
  161. 1570 x=0:h=0:gosub1700:goto1610
  162. 1580 ifh=0then1610
  163. 1590 x=ht+k:loc=l(k):h=0:pokel(k),155
  164. 1600 ifk=>4thenx=0:loc=l(k):goto1620
  165. 1610 return
  166. 1620 ifsc>hsthenhs=sc:ud=1
  167. 1630 print"";tab(1)"";hs
  168. 1640 pokesp+21,0:printtab(12)"game"tab(23)"over"
  169. 1650 print:printtab(12)"play"tab(22)"to again?"
  170. 1655 printtab(12)"press"tab(21)"fire button"
  171. 1660 jv=peek(56321):fr=jvand16:iffr=16then1660
  172. 1670 ag=1:lv=1:pokesp+23,0:goto70
  173. 1700 fori=15to0step-1:poke53280,i:next:return
  174. 1710 data 24,160,0,185,1,208,121,81,195,153,1,208
  175. 1720 data 200,200,200,200,192,20,208,239,173,1,208,201
  176. 1730 data 200,208,3,32,67,192,56,160,16,185,255,207
  177. 1740 data 249,79,195,153,255,207,136,136,136,136,192,0
  178. 1750 data 208,239,162,10,160,0,200,208,253,202,208,250
  179. 1760 data 173,31,208,141,82,195,96,160,0,140,80,195
  180. 1770 data 32,151,224,165,141,41,5,172,80,195,153,81
  181. 1780 data 195,200,200,140,80,195,192,16,208,234,96
  182. 1790 pokesp+21,0:poke53281,11:print"[147]"
  183. 1800 print"[158]you are a remarkable player..."
  184. 1810 printtab(11)"congratulations!"
  185. 1820 end
  186.